"0","```r
plot(raw.S ~ ages, type=\"l\", xlim=c(21000, 0), ylim=c(0, max(raw.S)+1), lty=2, col=\"gray\", xlab=\"Age (cal BP)\", ylab='Richness')
lines(S ~ ages, type=\"l\")
```"
"0","```r
arrows(ages, S+S.se, ages, S-S.se, code=3, length=0.1, angle=90)
```"
"1","zero-length arrow is of indeterminate angle and so skipped
"
